(popup-menu-popup): Fix typo: set menu-keymap.

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index dcd95a54006bd3ed29023562fe9288babc11b351..c67e209821a43efafc50133aa00554766b9a971f 100644 (file)
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -227,7 +227,7 @@ The syntax, more precisely:
                                                 (car pos))
                                           menu-keymap)))
       (setq cmd (lookup-key menu-keymap (apply 'vector answer)))
-      (setq menu nil)
+      (setq menu-keymap nil)
       (and cmd
           (if (keymapp cmd)
               (setq menu-keymap cmd)